
Uses
	Dos,crt;
    
Const
        MAX_PEDIDOS = 200;    
Type
    {$I TipoDeDatos.pas}
    
    {$I ManejoDeArchivos.pas}
    
    {$I ManejoPedidos.pas}

    {$I ManejoReparaciones.pas}

Procedure ActualizarRepuestos();
Var 
    NuevoRepuesto,RepuestoTMP : Repuesto;
    Archivo : FileRepuestos;
    NuevoPedidoReparado : PedidoReparado;
Begin
    
        NuevoRepuesto.Codigo := 200;
        NuevoRepuesto.Descripcion           :='Manguera de plastico 01';
        NuevoRepuesto.Cantidad              := 2;  

	InicializarReparados(NuevoPedidoReparado);

	NuevoPedidoReparado.Numero := GenerarNumeroReparacion();
        NuevoPedidoReparado.Fecha  := CalcularFechaHoy();
        NuevoPedidoReparado.RepuestosUtilizados[1] := NuevoRepuesto;
	                	
	ActualizarCantidadesRepuestos(NuevoPedidoReparado);
End;

Procedure MostrarPedidosCargados();
Var
    Archivo : FileRepuestos;
    UnRepuesto : Repuesto;
    I: Integer;

Begin
    
    OpenFileRepuestos(Archivo);
    
    For I := 0 To FileSize(Archivo)-1 Do
    Begin
        Seek(Archivo,I);
        Read(Archivo,UnRepuesto);
        
        Writeln('---------------------------------');
        Writeln('Codigo :',UnRepuesto.Codigo);
        Writeln('Descripcion :',UnRepuesto.Descripcion);
        Writeln('Cantidad Disponible :',UnRepuesto.Cantidad);
        Writeln('---------------------------------');        

    End;
    
    Close(Archivo);
    
End;


Begin    
	ClrScr;
	ActualizarRepuestos();
    	MostrarPedidosCargados();

	Readln;
End.
